﻿Public Class BEresultadohc

#Region "Declaración de variables"

    Private codParametro As Integer
    Private codSangre As Integer
    Private resultado As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodParametro As Object, _
            ByVal pCodSangre As Object, _
            ByVal pResultado As Object)

        Me._codParametro = pCodParametro
        Me._codSangre = pCodSangre
        Me._resultado = pResultado

    End Sub

    Public Property _codParametro() As Integer
        Get
            Return Me.codParametro
        End Get
        Set(ByVal value As Integer)
            Me.codParametro = value
        End Set
    End Property

    Public Property _codSangre() As Integer
        Get
            Return Me.codSangre
        End Get
        Set(ByVal value As Integer)
            Me.codSangre = value
        End Set
    End Property

    Public Property _resultado() As Integer
        Get
            Return Me.resultado
        End Get
        Set(ByVal value As Integer)
            Me.resultado = value
        End Set
    End Property

End Class
